home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / Me-Mz / MH Power Scripts v1.3.cpt / MH Power Scripts v1.3 / card_8719.txt < prev    next >
Text File  |  1988-05-06  |  3KB  |  112 lines
  1. -- card: 8719 from stack: in.3
  2. -- bmap block id: 0
  3. -- flags: 0000
  4. -- background id: 2663
  5. -- name: 
  6.  
  7.  
  8. -- part 1 (button)
  9. -- low flags: 00
  10. -- high flags: 2004
  11. -- rect: left=280 top=23 right=64 bottom=322
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 1007 / 1007
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: Super Print
  20. ----- HyperTalk script -----
  21. on copyright
  22.  
  23.   -- Super Print, Copyright by Mac Help Co., January 1988
  24.   -- by Chris Hostetter, Mac Help Co., 1800 East Market Street
  25.   -- Long Beach, CA  90805, (213) 428-7414
  26.   --      The script for this button is copyrighted and may not be
  27.   --      used without the written permission of the author (above).
  28.  
  29. end copyright
  30.  
  31.  
  32. on mouseUp
  33.   Global Report, ClearedActivity, LastID
  34.  
  35.   answer "How would you like to print?" with "Print Report" or "Actual Cards" or "CANCEL"
  36.   if it is "CANCEL" then pass mouseUp
  37.  
  38.   set lockscreen to true
  39.   if it is "Print Report" then
  40.     doMenu "Page Setup..."
  41.     set Lockscreen to True
  42.     doMenu "Print Report..."
  43.   end if
  44.   if it is "Actual Cards" then
  45.     answer "How would you like to print?" with "CANCEL" or "This Card" or "All Cards"
  46.     if it = "Cancel" then pass mouseUp
  47.     if it = "This Card" then
  48.       open printing
  49.       print this card
  50.     end if
  51.     if it = "All Cards" then
  52.       answer "Print all cards in this background or all cards in this stack?" with "CANCEL" or "Background" or "Stack"
  53.       if it = "Cancel" then pass mouseUp
  54.       if it is "Background" then
  55.         push card
  56.         set lockscreen to true
  57.         go to last card of this background
  58.         put the number of this card into LastCard
  59.         go to first card of this background
  60.         put the number of this card into FirstCard
  61.         put LastCard-FirstCard+1 into HowMany
  62.         open printing with dialog
  63.         Print HowMany Cards
  64.         close printing
  65.         pop card
  66.       else
  67.         push card
  68.         open printing with dialog
  69.         print all cards
  70.         close printing
  71.         pop card
  72.       end if
  73.     end if
  74.   end if
  75.   close printing
  76.   set lockscreen to false
  77.  
  78. end mouseUp
  79.  
  80.  
  81.  
  82. -- part 2 (field)
  83. -- low flags: 01
  84. -- high flags: 0004
  85. -- rect: left=325 top=24 right=39 bottom=385
  86. -- title width / last selected line: 0
  87. -- icon id / first selected line: 0 / 0
  88. -- text alignment: 1
  89. -- font id: 3
  90. -- text size: 9
  91. -- style flags: 0
  92. -- line height: 12
  93. -- part name: See Script
  94. ----- HyperTalk script -----
  95. on mouseUp
  96.   edit script of card button "Super Print"
  97. end mouseUp
  98.  
  99.  
  100. -- part contents for background part 8
  101. ----- text -----
  102. Card 17 of 20
  103.  
  104. -- part contents for background part 9
  105. ----- text -----
  106. SUPER PRINT
  107.  
  108. This button allows for a wide variety of printing options.
  109.  
  110. -- part contents for card part 2
  111. ----- text -----
  112. See Script